object SetupForm: TSetupForm
  Left = 556
  Top = 98
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'Setup Options'
  ClientHeight = 273
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 16
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 427
    Height = 273
    Align = alClient
    TabFont.Color = clBtnText
    TabFont.Height = -12
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'General'
      object Label12: TLabel
        Left = 8
        Top = 16
        Width = 203
        Height = 16
        Caption = 'Allow Drag&&Drop Items to Queue?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object visualoptDragDrop: TComboBox
        Left = 256
        Top = 13
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Display'
      object Label7: TLabel
        Left = 8
        Top = 16
        Width = 176
        Height = 16
        Caption = 'Display song length/position?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 8
        Top = 48
        Width = 237
        Height = 16
        Caption = 'Display Queue Position Moving Hands?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 8
        Top = 112
        Width = 239
        Height = 16
        Caption = 'Force-Show Queue When Items Added?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 8
        Top = 80
        Width = 218
        Height = 16
        Caption = 'Display Toolbar always as Docked?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 8
        Top = 144
        Width = 149
        Height = 16
        Caption = 'Show the Animated Icon?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object visualoptDisplayTime: TComboBox
        Left = 256
        Top = 13
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 0
      end
      object visualoptDisplayQueueHands: TComboBox
        Left = 256
        Top = 45
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 1
      end
      object VisualOptForceToolbarDock: TComboBox
        Left = 256
        Top = 77
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 2
      end
      object visualOptShowQueueItemsAdded: TComboBox
        Left = 256
        Top = 109
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 3
      end
      object visualoptShowAnimatedIcon: TComboBox
        Left = 256
        Top = 141
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 4
      end
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Confirm'
      object Label1: TLabel
        Left = 8
        Top = 24
        Width = 246
        Height = 16
        Caption = 'On Album Open when Queue is not Empty'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 8
        Top = 56
        Width = 197
        Height = 16
        Caption = 'On Removing Item(s) from Queue'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 88
        Width = 188
        Height = 16
        Caption = 'On Permanently Deleting File(s)'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 8
        Top = 120
        Width = 226
        Height = 16
        Caption = 'On Exiting When Multimedia is Playing'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object VisualoptConfirmOpenWhenQueueNotEmpty: TComboBox
        Left = 256
        Top = 21
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 0
      end
      object visualoptConfirmWhenRemovingfromQueue: TComboBox
        Left = 256
        Top = 53
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 1
      end
      object visualoptConfirmDeleteFile: TComboBox
        Left = 256
        Top = 84
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 2
      end
      object visualoptPromptOnExitWhenMultimediaActive: TComboBox
        Left = 256
        Top = 116
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 3
      end
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'CD'
      object Label8: TLabel
        Left = 8
        Top = 16
        Width = 188
        Height = 16
        Caption = 'Seek CD Information at Startup?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object visualoptautoseekcdstart: TComboBox
        Left = 256
        Top = 13
        Width = 145
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No')
        ParentFont = False
        TabOrder = 0
      end
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = 'Default Album'
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 257
        Height = 16
        Caption = 'Save Queue to Default Album when exiting?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 8
        Top = 48
        Width = 271
        Height = 16
        Caption = 'Load Default Alb. when starting Midi Machine?'
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object visualoptSaveDefaultAlbumWhenDone: TComboBox
        Left = 288
        Top = 14
        Width = 113
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No'
          'Prompt')
        ParentFont = False
        TabOrder = 0
      end
      object visualoptLoadDefaultAlbumWhenStart: TComboBox
        Left = 288
        Top = 45
        Width = 113
        Height = 24
        Style = csDropDownList
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ItemHeight = 16
        Items.Strings = (
          'Yes'
          'No'
          'Prompt')
        ParentFont = False
        TabOrder = 1
      end
    end
  end
  object OKBtn: TBitBtn
    Left = 88
    Top = 234
    Width = 77
    Height = 27
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = OKBtnClick
    Kind = bkOK
    Margin = 2
    Spacing = -1
  end
  object CancelBtn: TBitBtn
    Left = 256
    Top = 234
    Width = 77
    Height = 27
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    Kind = bkCancel
    Margin = 2
    Spacing = -1
  end
end